<%@codepage=65001%>
<!--#include file="classData.asp"-->
<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"


	lid = Request.QueryString("lid")
	uid = CInt(Request.QueryString("uid"))
	omd = Request.QueryString("omd")

	set HuaObj = new sysData
	HuaObj.sqlConnOpen()
	
	set HuaRds=server.CreateObject("ADODB.recordset")
	HuaObj.DbQuery HuaRds,"sysUser",QueryStr,0," LoginId = '"&lid&"'"
	tnum = HuaRds.RecordCount
	
	If tnum = 1 Then
	
		UserId = HuaRds("UserId")
	
	End If
	
	HuaRds.Close
	
	response.ContentType="text/xml"	
	Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>"&vbcrlf)
	Response.Write("<xml>"&vbcrlf)

	tstr = "1"

	if tnum = 0 AND lid <> "" then
	
		tstr = "0"
		
	End If

	if tnum = 1 AND omd = "u" then
	
		If UserId = uid then
		
			tstr = "0"
		
		End If
	
	end if
	
	Response.Write("<Shi ShiId = """&tstr&"""></Shi>"&vbcrlf)
	
	Response.Write("</xml>"&vbcrlf)
	
	HuaObj.sqlConnClose()


%>
